(x-resolve-font-name): Clean up error messages.

diff --git a/lisp/faces.el b/lisp/faces.el
index 7788617ea2797631732f6652c88ea9f26f771de1..b19159020c0f3744cd7ad9eec7f080b1d1f185b6 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -428,9 +428,9 @@ also the same size as FACE on FRAME."
       (let ((fonts (x-list-fonts pattern face frame)))
        (or fonts
            (if face
-               (error "no fonts matching pattern are the same size as `%s'."
+               (error "No fonts matching pattern are the same size as `%s'"
                       face)
-             (error "no fonts match `%S'." pattern)))
+             (error "No fonts match `%s'" pattern)))
        (car fonts))
     (cdr (assq 'font (frame-parameters (selected-frame))))))